﻿Public Partial Class encOcupacional
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("usuarioId") Is Nothing Then
                Response.Redirect("loguin.aspx")
            End If
            If Not Session("profesionId") Is Nothing Then
                If Permisos.Validar(Session("profesionId").ToString, 6) = False Then
                    Response.Redirect("Denied.aspx")
                End If
            Else
                Response.Redirect("Denied.aspx")
            End If
            If Not IsPostBack Then
                lbprofesion.Text = Session("profesion").ToString()
                lbnombre.Text = Session("nombre").ToString()
                Dim TablaId = Request.QueryString.Get("terapiaId")
                Consulta_Registro(TablaId, sender, e)
                If Request.QueryString.Get("terapiaId") <> "" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "fnCargaEdicion();")
                End If
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Public Sub Consulta_Registro(ByVal Id As Integer, ByVal sender As Object, ByVal e As EventArgs)
        On Error GoTo errores
        Dim Docmd As New DoCmd, reader As System.Data.SqlClient.SqlDataReader
        Dim Qry As String
        Dim camp As Integer
        Qry = "SELECT tera.*, par.primerNombre + ' ' + par.segundoNombre + ' ' + par.primerApellido + ' ' + par.segundoApellido AS NombreCompleto, YEAR({ fn NOW() }) - YEAR(par.fechaNacimiento) AS Edad,par.sexo FROM terapiaOcupacional AS tera INNER JOIN participantes AS par ON par.participanteId = tera.participantesId where tera.terapiaId = " & Id
        Docmd.Conectar()
        reader = Docmd.Read_SQL(Qry)
        While reader.Read
            camp = reader.FieldCount
            For i = 0 To camp - 1
                On Error Resume Next
                If Page.Form.FindControl(reader.GetName(i)).ID <> "" Then
                    Asigna_control(Page.Form.FindControl(reader.GetName(i)), reader(i).ToString().Trim)
                End If
            Next
        End While
        reader.Close()
        Docmd.Desconectar()
        Exit Sub
errores:
        Response.Write(Err.Description)
    End Sub

    Private Sub Asigna_control(ByVal Objeto As Object, ByRef valor As String)
        Select Case Objeto.GetType.Name
            Case "HiddenField"
                If valor <> "" Then
                    Objeto.value = valor
                Else
                    Objeto.value = ""
                End If
            Case "TextBox"
                If valor <> "" Then
                    Objeto.text = valor
                Else
                    Objeto.text = ""
                End If
            Case "CheckBox"
                If valor = "Si" Then
                    Objeto.Checked = True
                Else
                    Objeto.Checked = False
                End If
            Case "RadioButtonList"
                If valor <> "" Then
                    If valor = "True" Then
                        Objeto.SelectedValue = 1
                    ElseIf valor = "False" Then
                        Objeto.SelectedValue = 0
                    Else
                        Objeto.SelectedValue = valor
                    End If
                Else
                    Objeto.SelectedIndex = -1
                End If
            Case "DropDownList"
                If valor <> "" Then
                    Objeto.SelectedValue = Objeto.Items.FindByValue(valor.Trim).Value
                Else
                    Objeto.SelectedIndex = -1
                End If
        End Select
    End Sub

    Private Sub cargacombos(ByVal participanteId As Integer)
        Try
            Dim docmd As New Sql_Server
            docmd.Conectar()
            docmd.Combo = cboUltRegistros
            docmd.Listar_Combo("SELECT TOP (50) tera.terapiaId, CAST(tera.fechaCreo AS varchar) + '->' + par.primerNombre + ' ' + CASE WHEN par.segundoNombre IS NULL THEN '' ELSE par.segundoNombre END + '  ' + par.primerApellido + ' ' + CASE WHEN par.segundoApellido IS NULL THEN '' ELSE par.segundoApellido END AS Nombre FROM terapiaOcupacional AS tera  INNER JOIN participantes AS par ON par.participanteId = tera.participantesId WHERE (tera.participantesId = " + participanteId.ToString + ") ORDER BY tera.fechaCreo DESC")
            docmd.Desconectar()
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        Try
            Select Case e.Row.RowType
                Case DataControlRowType.DataRow
                    Dim id As Label = e.Row.FindControl("idParticipante")
                    Dim ctrlEliminar As ImageButton = CType(e.Row.Cells(0).Controls(0), ImageButton)
                    ctrlEliminar.OnClientClick = "fnOculta('" + id.Text.Trim + "','" + e.Row.Cells(5).Text.Trim + "','" + e.Row.Cells(6).Text.Trim + "','" + e.Row.Cells(4).Text.Trim + "');return true;"
                    ctrlEliminar.ToolTip = "Click para ingresar un nuevo componente Ocupacional a " + e.Row.Cells(4).Text.Trim.ToUpper
            End Select
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
        Try
            Dim row As GridViewRow = GridView1.SelectedRow
            Dim id As Label = row.FindControl("idParticipante")
            cargacombos(id.Text.Trim)
            Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel11, "fnListBox();")
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Protected Sub btnConsulta_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsulta.Click
        Dim where As String
        where = " 1 = 1"
        If cbotipDocumento.SelectedValue.Trim <> "-1" Then
            where = where + " and tipoDocumento = '" + cbotipDocumento.SelectedValue.Trim + "'"
        End If
        If txtDocumento.Text.Trim <> "" Then
            where = where + " and documento = '" + txtDocumento.Text.Trim + "'"
        End If
        If conPrinombre.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conPrinombre.Text.Trim + "%'"
        End If
        If conSegnombre.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conSegnombre.Text.Trim + "%'"
        End If
        If conPriApe.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conPriApe.Text.Trim + "%'"
        End If
        If conSegApe.Text.Trim <> "" Then
            where = where + " and NombreCompleto like '%" + conSegApe.Text.Trim + "%'"
        End If
        SqlDataSource1.FilterExpression = where
        SqlDataSource1.DataBind()
    End Sub

    Protected Sub BtnguardaVb_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnguardaVb.Click
        If Page.IsValid = True Then
            Dim modelo As New  geriatria.DataClasses1DataContext()
            Dim cstype As Type = Page.GetType()
            Dim cs As ClientScriptManager = Page.ClientScript
            Dim sb As StringBuilder = New StringBuilder()
            If IsNumeric(terapiaId.Value.Trim) Then
                'edita
                Dim Clterapia = (From tera In modelo.terapiaOcupacionals Where tera.terapiaId = terapiaId.Value.Trim Select tera).Single()
                Clterapia.participantesId = participantesId.Value.Trim
                If trabajoEjecutivo.Checked Then
                    Clterapia.trabajoEjecutivo = "Si"
                Else
                    Clterapia.trabajoEjecutivo = "No"
                End If
                If trabajoCientifico.Checked Then
                    Clterapia.trabajoCientifico = "Si"
                Else
                    Clterapia.trabajoCientifico = "No"
                End If
                If trabajoNivelMedio.Checked Then
                    Clterapia.trabajoNivelMedio = "Si"
                Else
                    Clterapia.trabajoNivelMedio = "No"
                End If
                If trabajoOficina.Checked Then
                    Clterapia.trabajoOficina = "Si"
                Else
                    Clterapia.trabajoOficina = "No"
                End If
                If trabajoServicios.Checked Then
                    Clterapia.trabajoServicios = "Si"
                Else
                    Clterapia.trabajoServicios = "No"
                End If
                If trabajoAgricultor.Checked Then
                    Clterapia.trabajoAgricultor = "Si"
                Else
                    Clterapia.trabajoAgricultor = "No"
                End If
                If trabajoOperarios.Checked Then
                    Clterapia.trabajoOperarios = "Si"
                Else
                    Clterapia.trabajoOperarios = "No"
                End If
                If trabajoMaquinaria.Checked Then
                    Clterapia.trabajoMaquinaria = "Si"
                Else
                    Clterapia.trabajoMaquinaria = "No"
                End If
                If trabajoNocalificado.Checked Then
                    Clterapia.trabajoNocalificado = "Si"
                Else
                    Clterapia.trabajoNocalificado = "No"
                End If
                If trabajoArmada.Checked Then
                    Clterapia.trabajoArmada = "Si"
                Else
                    Clterapia.trabajoArmada = "No"
                End If
                Clterapia.arregloPersonal = arregloPersonal.SelectedValue.Trim
                Clterapia.higiene = higiene.SelectedValue.Trim
                Clterapia.bano = bano.SelectedValue.Trim
                Clterapia.higieneOrinar = higieneOrinar.SelectedValue.Trim
                Clterapia.vestido = vestido.SelectedValue.Trim
                Clterapia.alimento = alimento.SelectedValue.Trim
                Clterapia.rutina = rutina.SelectedValue.Trim
                Clterapia.socializacion = socializacion.SelectedValue.Trim
                Clterapia.comunidad = comunidad.SelectedValue.Trim
                Clterapia.movilidad = movilidad.SelectedValue.Trim
                Clterapia.expresionSexual = expresionSexual.SelectedValue.Trim
                Clterapia.observaciones = observaciones.Text.Trim
                If txtPestana.Value.Trim >= 1 Then
                    Clterapia.manejoHogar = manejoHogar.SelectedValue.Trim
                    Clterapia.cuidadoRopa = cuidadoRopa.SelectedValue.Trim
                    Clterapia.limpieza = limpieza.SelectedValue.Trim
                    Clterapia.preparaComidas = preparaComidas.SelectedValue.Trim
                    Clterapia.compras = compras.SelectedValue.Trim
                    Clterapia.manejoDinero = manejoDinero.SelectedValue.Trim
                    Clterapia.cuidadoCasa = cuidadoCasa.SelectedValue.Trim
                    Clterapia.proceSeguridad = proceSeguridad.SelectedValue.Trim
                    Clterapia.cuidadoOtros = cuidadoOtros.SelectedValue.Trim
                    Clterapia.actiEducativas = actiEducativas.SelectedValue.Trim
                    Clterapia.actVocacionales = actVocacionales.SelectedValue.Trim
                    Clterapia.explVocacional = explVocacional.SelectedValue.Trim
                    Clterapia.adquiEmpleo = adquiEmpleo.SelectedValue.Trim
                    Clterapia.desempeno = desempeno.SelectedValue.Trim
                    Clterapia.planJubilacion = planJubilacion.SelectedValue.Trim
                    Clterapia.expJuego = expJuego.SelectedValue.Trim
                    Clterapia.desempJuego = desempJuego.SelectedValue.Trim
                    Clterapia.observacionesDos = observacionesDos.Text.Trim
                    Clterapia.observacionesTres = observacionesTres.Text.Trim
                    Clterapia.concepto_ocupacional = concepto_ocupacional.Text.Trim
                End If
                If txtPestana.Value.Trim >= 2 Then
                    Clterapia.escribir = escribir.SelectedValue.Trim
                    Clterapia.escribirPref = escribirPref.SelectedValue.Trim
                    Clterapia.politica = politica.SelectedValue.Trim
                    Clterapia.politicaPref = politicaPref.SelectedValue.Trim
                    Clterapia.religion = religion.SelectedValue.Trim
                    Clterapia.religionPref = religionPref.SelectedValue.Trim
                    Clterapia.radio = radio.SelectedValue.Trim
                    Clterapia.radioPref = radioPref.SelectedValue.Trim
                    Clterapia.conducir = conducir.SelectedValue.Trim
                    Clterapia.conducirPref = conducirPref.SelectedValue.Trim
                    Clterapia.informatica = informatica.SelectedValue.Trim
                    Clterapia.informaticaPref = informaticaPref.SelectedValue.Trim
                    Clterapia.internet = internet.SelectedValue.Trim
                    Clterapia.internetPref = internetPref.SelectedValue.Trim
                    Clterapia.comprar = comprar.SelectedValue.Trim
                    Clterapia.comprarPref = comprarPref.SelectedValue.Trim
                    Clterapia.pasatiempos = pasatiempos.SelectedValue.Trim
                    Clterapia.pasatiemposPref = pasatiemposPref.SelectedValue.Trim
                    Clterapia.visitas = visitas.SelectedValue.Trim
                    Clterapia.visitasPref = visitasPref.SelectedValue.Trim
                    Clterapia.viajar = viajar.SelectedValue.Trim
                    Clterapia.viajarPref = viajarPref.SelectedValue.Trim
                    Clterapia.cluSocial = cluSocial.SelectedValue.Trim
                    Clterapia.cluSocialPref = cluSocialPref.SelectedValue.Trim
                    Clterapia.conversar = conversar.SelectedValue.Trim
                    Clterapia.conversarPref = conversarPref.SelectedValue.Trim
                    Clterapia.television = television.SelectedValue.Trim
                    Clterapia.televisionPref = televisionPref.SelectedValue.Trim
                    Clterapia.coleccionar = coleccionar.SelectedValue.Trim
                    Clterapia.coleccionarPref = coleccionarPref.SelectedValue.Trim
                    Clterapia.mascotas = mascotas.SelectedValue.Trim
                    Clterapia.mascotasPref = mascotasPref.SelectedValue.Trim
                    Clterapia.conciertos = conciertos.SelectedValue.Trim
                    Clterapia.conciertosPref = conciertosPref.SelectedValue.Trim
                    Clterapia.voluntariado = voluntariado.SelectedValue.Trim
                    Clterapia.voluntariadoPref = voluntariadoPref.SelectedValue.Trim
                    Clterapia.futbol = futbol.SelectedValue.Trim
                    Clterapia.futbolPref = futbolPref.SelectedValue.Trim
                    Clterapia.paseos = paseos.SelectedValue.Trim
                    Clterapia.paseosPref = paseosPref.SelectedValue.Trim
                    Clterapia.musica = musica.SelectedValue.Trim
                    Clterapia.musicaPref = musicaPref.SelectedValue.Trim
                    Clterapia.fiestas = fiestas.SelectedValue.Trim
                    Clterapia.fiestasPref = fiestasPref.SelectedValue.Trim
                    Clterapia.bailar = bailar.SelectedValue.Trim
                    Clterapia.bailarPref = bailarPref.SelectedValue.Trim
                    Clterapia.cine = cine.SelectedValue.Trim
                    Clterapia.cinePref = cinePref.SelectedValue.Trim
                    Clterapia.manualidades = manualidades.SelectedValue.Trim
                    Clterapia.manualidadesPref = manualidadesPref.SelectedValue.Trim
                    Clterapia.pintura = pintura.SelectedValue.Trim
                    Clterapia.pinturaPref = pinturaPref.SelectedValue.Trim
                    Clterapia.baloncesto = baloncesto.SelectedValue.Trim
                    Clterapia.baloncestoPref = baloncestoPref.SelectedValue.Trim
                    Clterapia.rompecabezas = rompecabezas.SelectedValue.Trim
                    Clterapia.rompecabezasPref = rompecabezasPref.SelectedValue.Trim
                    Clterapia.caminata = caminata.SelectedValue.Trim
                    Clterapia.caminataPref = caminataPref.SelectedValue.Trim
                    Clterapia.leer = leer.SelectedValue.Trim
                    Clterapia.leerPref = leerPref.SelectedValue.Trim
                    Clterapia.historia = historia.SelectedValue.Trim
                    Clterapia.historiaPref = historiaPref.SelectedValue.Trim
                    Clterapia.natacion = natacion.SelectedValue.Trim
                    Clterapia.natacionPref = natacionPref.SelectedValue.Trim
                    Clterapia.gimnasia = gimnasia.SelectedValue.Trim
                    Clterapia.gimnasiaPref = gimnasiaPref.SelectedValue.Trim
                    Clterapia.escribirObs = escribirObs.Text.Trim
                    Clterapia.politicaObs = politicaObs.Text.Trim
                    Clterapia.religionObs = religionObs.Text.Trim
                    Clterapia.radioObs = radioObs.Text.Trim
                    Clterapia.conducirObs = conducirObs.Text.Trim
                    Clterapia.informaticaObs = informaticaObs.Text.Trim
                    Clterapia.internetObs = internetObs.Text.Trim
                    Clterapia.comprarObs = comprarObs.Text.Trim
                    Clterapia.pasatiemposObs = pasatiemposObs.Text.Trim
                    Clterapia.visitasObs = visitasObs.Text.Trim
                    Clterapia.viajarObs = viajarObs.Text.Trim
                    Clterapia.cluSocialObs = cluSocialObs.Text.Trim
                    Clterapia.conversarObs = conversarObs.Text.Trim
                    Clterapia.televisionObs = televisionObs.Text.Trim
                    Clterapia.coleccionarObs = coleccionarObs.Text.Trim
                    Clterapia.mascotasObs = mascotasObs.Text.Trim
                    Clterapia.conciertosObs = conciertosObs.Text.Trim
                    Clterapia.voluntariadoObs = voluntariadoObs.Text.Trim
                    Clterapia.futbolObs = futbolObs.Text.Trim
                    Clterapia.paseosObs = paseosObs.Text.Trim
                    Clterapia.musicaObs = musicaObs.Text.Trim
                    Clterapia.fiestasObs = fiestasObs.Text.Trim
                    Clterapia.bailarObs = bailarObs.Text.Trim
                    Clterapia.cineObs = cineObs.Text.Trim
                    Clterapia.manualidadesObs = manualidadesObs.Text.Trim
                    Clterapia.pinturaObs = pinturaObs.Text.Trim
                    Clterapia.baloncestoObs = baloncestoObs.Text.Trim
                    Clterapia.rompecabezasObs = rompecabezasObs.Text.Trim
                    Clterapia.caminataObs = caminataObs.Text.Trim
                    Clterapia.leerObs = leerObs.Text.Trim
                    Clterapia.historiaObs = historiaObs.Text.Trim
                    Clterapia.natacionObs = natacionObs.Text.Trim
                    Clterapia.gimnasiaObs = gimnasiaObs.Text.Trim
                    Clterapia.observacionesCuatro = observacionesCuatro.Text.Trim
                End If
                If txtPestana.Value.Trim >= 3 Then
                    Clterapia.domino = domino.SelectedValue.Trim
                    Clterapia.dominoPref = dominoPref.SelectedValue.Trim
                    Clterapia.ajedrez = ajedrez.SelectedValue.Trim
                    Clterapia.ajedrezPref = ajedrezPref.SelectedValue.Trim
                    Clterapia.cartas = cartas.SelectedValue.Trim
                    Clterapia.cartasPref = cartasPref.SelectedValue.Trim
                    Clterapia.damas = damas.SelectedValue.Trim
                    Clterapia.damasPref = damasPref.SelectedValue.Trim
                    Clterapia.guitarra = guitarra.SelectedValue.Trim
                    Clterapia.guitarraPref = guitarraPref.SelectedValue.Trim
                    Clterapia.danza = danza.SelectedValue.Trim
                    Clterapia.danzaPref = danzaPref.SelectedValue.Trim
                    Clterapia.poesia = poesia.SelectedValue.Trim
                    Clterapia.poesiaPref = poesiaPref.SelectedValue.Trim
                    Clterapia.capachos = capachos.SelectedValue.Trim
                    Clterapia.capachosPref = capachosPref.SelectedValue.Trim
                    Clterapia.arpa = arpa.SelectedValue.Trim
                    Clterapia.arpaPref = arpaPref.SelectedValue.Trim
                    Clterapia.flauta = flauta.SelectedValue.Trim
                    Clterapia.flautaPref = flautaPref.SelectedValue.Trim
                    Clterapia.cantar = cantar.SelectedValue.Trim
                    Clterapia.cantarPref = cantarPref.SelectedValue.Trim
                    Clterapia.teatro = teatro.SelectedValue.Trim
                    Clterapia.teatroPref = teatroPRef.SelectedValue.Trim
                    Clterapia.rana = rana.SelectedValue.Trim
                    Clterapia.ranaPref = ranaPref.SelectedValue.Trim
                    Clterapia.teja = teja.SelectedValue.Trim
                    Clterapia.tejaPref = tejaPref.SelectedValue.Trim
                    Clterapia.coser = coser.SelectedValue.Trim
                    Clterapia.coserPref = coserPref.SelectedValue.Trim
                    Clterapia.bordar = bordar.SelectedValue.Trim
                    Clterapia.bordarPref = bordarPref.SelectedValue.Trim
                    Clterapia.ganchillo = ganchillo.SelectedValue.Trim
                    Clterapia.ganchilloPref = ganchilloPref.SelectedValue.Trim
                    Clterapia.jardineria = jardineria.SelectedValue.Trim
                    Clterapia.jardineriaPref = jardineriaPref.SelectedValue.Trim
                    Clterapia.mecaAutos = mecaAutos.SelectedValue.Trim
                    Clterapia.mecaAutosPref = mecaAutosPref.SelectedValue.Trim
                    Clterapia.mecaMotos = mecaMotos.SelectedValue.Trim
                    Clterapia.mecaMotosPref = mecaMotosPref.SelectedValue.Trim
                    Clterapia.marqueteria = marqueteria.SelectedValue.Trim
                    Clterapia.marqueteriaPref = marqueteriaPref.SelectedValue.Trim
                    Clterapia.bisuteria = bisuteria.SelectedValue.Trim
                    Clterapia.bisuteriaPref = bisuteriaPref.SelectedValue.Trim
                    Clterapia.cocina = cocina.SelectedValue.Trim
                    Clterapia.cocinaPref = cocinaPref.SelectedValue.Trim
                    Clterapia.cuero = cuero.SelectedValue.Trim
                    Clterapia.cueroPref = cueroPref.SelectedValue.Trim
                    Clterapia.decoracion = decoracion.SelectedValue.Trim
                    Clterapia.decoracionPref = decoracionPref.SelectedValue.Trim
                    Clterapia.peluqueria = peluqueria.SelectedValue.Trim
                    Clterapia.peluqueriaPref = peluqueriaPref.SelectedValue.Trim
                    Clterapia.ceramica = ceramica.SelectedValue.Trim
                    Clterapia.ceramicaPref = ceramicaPref.SelectedValue.Trim
                    Clterapia.mosaico = mosaico.SelectedValue.Trim
                    Clterapia.mosaicoPref = mosaicoPref.SelectedValue.Trim
                    Clterapia.repElectro = repElectro.SelectedValue.Trim
                    Clterapia.repElectroPref = repElectroPref.SelectedValue.Trim
                    Clterapia.bolsas = bolsas.SelectedValue.Trim
                    Clterapia.bolsasPref = bolsasPref.SelectedValue.Trim
                    Clterapia.traperos = traperos.SelectedValue.Trim
                    Clterapia.traperosPref = traperosPref.SelectedValue.Trim
                    Clterapia.escobas = escobas.SelectedValue.Trim
                    Clterapia.escobasPref = escobasPref.SelectedValue.Trim
                    Clterapia.panaderia = panaderia.SelectedValue.Trim
                    Clterapia.panaderiaPref = panaderiaPref.SelectedValue.Trim
                    Clterapia.dominoObs = dominoObs.Text.Trim
                    Clterapia.ajedrezObs = ajedrezObs.Text.Trim
                    Clterapia.cartasObs = cartasObs.Text.Trim
                    Clterapia.damasObs = damasObs.Text.Trim
                    Clterapia.guitarraObs = guitarraObs.Text.Trim
                    Clterapia.danzaObs = danzaObs.Text.Trim
                    Clterapia.poesiaObs = poesiaObs.Text.Trim
                    Clterapia.capachosObs = capachosObs.Text.Trim
                    Clterapia.arpaObs = arpaObs.Text.Trim
                    Clterapia.flautaObs = flautaObs.Text.Trim
                    Clterapia.cantarObs = cantarObs.Text.Trim
                    Clterapia.teatroObs = teatroObs.Text.Trim
                    Clterapia.ranaObs = ranaObs.Text.Trim
                    Clterapia.tejaObs = tejaObs.Text.Trim
                    Clterapia.coserObs = coserObs.Text.Trim
                    Clterapia.bordarObs = bordarObs.Text.Trim
                    Clterapia.ganchilloObs = ganchilloObs.Text.Trim
                    Clterapia.jardineriaObs = jardineriaObs.Text.Trim
                    Clterapia.mecaAutosObs = mecaAutosObs.Text.Trim
                    Clterapia.mecaMotosObs = mecaMotosObs.Text.Trim
                    Clterapia.marqueteriaObs = marqueteriaObs.Text.Trim
                    Clterapia.bisuteriaObs = bisuteriaObs.Text.Trim
                    Clterapia.cocinaObs = cocinaObs.Text.Trim
                    Clterapia.cueroObs = cueroObs.Text.Trim
                    Clterapia.decoracionObs = decoracionObs.Text.Trim
                    Clterapia.peluqueriaObs = peluqueriaObs.Text.Trim
                    Clterapia.ceramicaObs = ceramicaObs.Text.Trim
                    Clterapia.mosaicoObs = mosaicoObs.Text.Trim
                    Clterapia.repElectroObs = repElectroObs.Text.Trim
                    Clterapia.bolsasObs = bolsasObs.Text.Trim
                    Clterapia.traperosObs = traperosObs.Text.Trim
                    Clterapia.escobasObs = escobasObs.Text.Trim
                    Clterapia.panaderiaObs = panaderiaObs.Text.Trim
                    Clterapia.observacionesCinco = observacionesCinco.Text.Trim
                End If
                Try
                    modelo.SubmitChanges()
                    If txtContinua.Value.Trim = "Si" Then
                        Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');")
                    Else
                        Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');window.location = 'encOcupacional.aspx'")
                    End If
                Catch ex As Exception
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('" & ex.Message & "');")
                End Try
            Else
                'Se trata de un nuevo registro
                Dim Clterapia As New terapiaOcupacional
                If participantesId.Value.Trim = "" Then
                    Exit Sub
                End If
                Clterapia.participantesId = participantesId.Value.Trim
                If trabajoEjecutivo.Checked Then
                    Clterapia.trabajoEjecutivo = "Si"
                Else
                    Clterapia.trabajoEjecutivo = "No"
                End If

                If trabajoCientifico.Checked Then
                    Clterapia.trabajoCientifico = "Si"
                Else
                    Clterapia.trabajoCientifico = "No"
                End If
                If trabajoNivelMedio.Checked Then
                    Clterapia.trabajoNivelMedio = "Si"
                Else
                    Clterapia.trabajoNivelMedio = "No"
                End If
                If trabajoOficina.Checked Then
                    Clterapia.trabajoOficina = "Si"
                Else
                    Clterapia.trabajoOficina = "No"
                End If
                If trabajoServicios.Checked Then
                    Clterapia.trabajoServicios = "Si"
                Else
                    Clterapia.trabajoServicios = "No"
                End If
                If trabajoAgricultor.Checked Then
                    Clterapia.trabajoAgricultor = "Si"
                Else
                    Clterapia.trabajoAgricultor = "No"
                End If
                If trabajoOperarios.Checked Then
                    Clterapia.trabajoOperarios = "Si"
                Else
                    Clterapia.trabajoOperarios = "No"
                End If
                If trabajoMaquinaria.Checked Then
                    Clterapia.trabajoMaquinaria = "Si"
                Else
                    Clterapia.trabajoMaquinaria = "No"
                End If
                If trabajoNocalificado.Checked Then
                    Clterapia.trabajoNocalificado = "Si"
                Else
                    Clterapia.trabajoNocalificado = "No"
                End If
                If trabajoArmada.Checked Then
                    Clterapia.trabajoArmada = "Si"
                Else
                    Clterapia.trabajoArmada = "No"
                End If
                Clterapia.arregloPersonal = arregloPersonal.SelectedValue.Trim
                Clterapia.higiene = higiene.SelectedValue.Trim
                Clterapia.bano = bano.SelectedValue.Trim
                Clterapia.higieneOrinar = higieneOrinar.SelectedValue.Trim
                Clterapia.vestido = vestido.SelectedValue.Trim
                Clterapia.alimento = alimento.SelectedValue.Trim
                Clterapia.rutina = rutina.SelectedValue.Trim
                Clterapia.socializacion = socializacion.SelectedValue.Trim
                Clterapia.comunidad = comunidad.SelectedValue.Trim
                Clterapia.movilidad = movilidad.SelectedValue.Trim
                Clterapia.expresionSexual = expresionSexual.SelectedValue.Trim
                Clterapia.observaciones = observaciones.Text.Trim
                If txtPestana.Value.Trim >= 1 Then
                    Clterapia.manejoHogar = manejoHogar.SelectedValue.Trim
                    Clterapia.cuidadoRopa = cuidadoRopa.SelectedValue.Trim
                    Clterapia.limpieza = limpieza.SelectedValue.Trim
                    Clterapia.preparaComidas = preparaComidas.SelectedValue.Trim
                    Clterapia.compras = compras.SelectedValue.Trim
                    Clterapia.manejoDinero = manejoDinero.SelectedValue.Trim
                    Clterapia.cuidadoCasa = cuidadoCasa.SelectedValue.Trim
                    Clterapia.proceSeguridad = proceSeguridad.SelectedValue.Trim
                    Clterapia.cuidadoOtros = cuidadoOtros.SelectedValue.Trim
                    Clterapia.actiEducativas = actiEducativas.SelectedValue.Trim
                    Clterapia.actVocacionales = actVocacionales.SelectedValue.Trim
                    Clterapia.explVocacional = explVocacional.SelectedValue.Trim
                    Clterapia.adquiEmpleo = adquiEmpleo.SelectedValue.Trim
                    Clterapia.desempeno = desempeno.SelectedValue.Trim
                    Clterapia.planJubilacion = planJubilacion.SelectedValue.Trim
                    Clterapia.expJuego = expJuego.SelectedValue.Trim
                    Clterapia.desempJuego = desempJuego.SelectedValue.Trim
                    Clterapia.observacionesDos = observacionesDos.Text.Trim
                    Clterapia.observacionesTres = observacionesTres.Text.Trim
                End If
                If txtPestana.Value.Trim >= 2 Then
                    Clterapia.escribir = escribir.SelectedValue.Trim
                    Clterapia.escribirPref = escribirPref.SelectedValue.Trim
                    Clterapia.politica = politica.SelectedValue.Trim
                    Clterapia.politicaPref = politicaPref.SelectedValue.Trim
                    Clterapia.religion = religion.SelectedValue.Trim
                    Clterapia.religionPref = religionPref.SelectedValue.Trim
                    Clterapia.radio = radio.SelectedValue.Trim
                    Clterapia.radioPref = radioPref.SelectedValue.Trim
                    Clterapia.conducir = conducir.SelectedValue.Trim
                    Clterapia.conducirPref = conducirPref.SelectedValue.Trim
                    Clterapia.informatica = informatica.SelectedValue.Trim
                    Clterapia.informaticaPref = informaticaPref.SelectedValue.Trim
                    Clterapia.internet = internet.SelectedValue.Trim
                    Clterapia.internetPref = internetPref.SelectedValue.Trim
                    Clterapia.comprar = comprar.SelectedValue.Trim
                    Clterapia.comprarPref = comprarPref.SelectedValue.Trim
                    Clterapia.pasatiempos = pasatiempos.SelectedValue.Trim
                    Clterapia.pasatiemposPref = pasatiemposPref.SelectedValue.Trim
                    Clterapia.visitas = visitas.SelectedValue.Trim
                    Clterapia.visitasPref = visitasPref.SelectedValue.Trim
                    Clterapia.viajar = viajar.SelectedValue.Trim
                    Clterapia.viajarPref = viajarPref.SelectedValue.Trim
                    Clterapia.cluSocial = cluSocial.SelectedValue.Trim
                    Clterapia.cluSocialPref = cluSocialPref.SelectedValue.Trim
                    Clterapia.conversar = conversar.SelectedValue.Trim
                    Clterapia.conversarPref = conversarPref.SelectedValue.Trim
                    Clterapia.television = television.SelectedValue.Trim
                    Clterapia.televisionPref = televisionPref.SelectedValue.Trim
                    Clterapia.coleccionar = coleccionar.SelectedValue.Trim
                    Clterapia.coleccionarPref = coleccionarPref.SelectedValue.Trim
                    Clterapia.mascotas = mascotas.SelectedValue.Trim
                    Clterapia.mascotasPref = mascotasPref.SelectedValue.Trim
                    Clterapia.conciertos = conciertos.SelectedValue.Trim
                    Clterapia.conciertosPref = conciertosPref.SelectedValue.Trim
                    Clterapia.voluntariado = voluntariado.SelectedValue.Trim
                    Clterapia.voluntariadoPref = voluntariadoPref.SelectedValue.Trim
                    Clterapia.futbol = futbol.SelectedValue.Trim
                    Clterapia.futbolPref = futbolPref.SelectedValue.Trim
                    Clterapia.paseos = paseos.SelectedValue.Trim
                    Clterapia.paseosPref = paseosPref.SelectedValue.Trim
                    Clterapia.musica = musica.SelectedValue.Trim
                    Clterapia.musicaPref = musicaPref.SelectedValue.Trim
                    Clterapia.fiestas = fiestas.SelectedValue.Trim
                    Clterapia.fiestasPref = fiestasPref.SelectedValue.Trim
                    Clterapia.bailar = bailar.SelectedValue.Trim
                    Clterapia.bailarPref = bailarPref.SelectedValue.Trim
                    Clterapia.cine = cine.SelectedValue.Trim
                    Clterapia.cinePref = cinePref.SelectedValue.Trim
                    Clterapia.manualidades = manualidades.SelectedValue.Trim
                    Clterapia.manualidadesPref = manualidadesPref.SelectedValue.Trim
                    Clterapia.pintura = pintura.SelectedValue.Trim
                    Clterapia.pinturaPref = pinturaPref.SelectedValue.Trim
                    Clterapia.baloncesto = baloncesto.SelectedValue.Trim
                    Clterapia.baloncestoPref = baloncestoPref.SelectedValue.Trim
                    Clterapia.rompecabezas = rompecabezas.SelectedValue.Trim
                    Clterapia.rompecabezasPref = rompecabezasPref.SelectedValue.Trim
                    Clterapia.caminata = caminata.SelectedValue.Trim
                    Clterapia.caminataPref = caminataPref.SelectedValue.Trim
                    Clterapia.leer = leer.SelectedValue.Trim
                    Clterapia.leerPref = leerPref.SelectedValue.Trim
                    Clterapia.historia = historia.SelectedValue.Trim
                    Clterapia.historiaPref = historiaPref.SelectedValue.Trim
                    Clterapia.natacion = natacion.SelectedValue.Trim
                    Clterapia.natacionPref = natacionPref.SelectedValue.Trim
                    Clterapia.gimnasia = gimnasia.SelectedValue.Trim
                    Clterapia.gimnasiaPref = gimnasiaPref.SelectedValue.Trim
                    Clterapia.escribirObs = escribirObs.Text.Trim
                    Clterapia.politicaObs = politicaObs.Text.Trim
                    Clterapia.religionObs = religionObs.Text.Trim
                    Clterapia.radioObs = radioObs.Text.Trim
                    Clterapia.conducirObs = conducirObs.Text.Trim
                    Clterapia.informaticaObs = informaticaObs.Text.Trim
                    Clterapia.internetObs = internetObs.Text.Trim
                    Clterapia.comprarObs = comprarObs.Text.Trim
                    Clterapia.pasatiemposObs = pasatiemposObs.Text.Trim
                    Clterapia.visitasObs = visitasObs.Text.Trim
                    Clterapia.viajarObs = viajarObs.Text.Trim
                    Clterapia.cluSocialObs = cluSocialObs.Text.Trim
                    Clterapia.conversarObs = conversarObs.Text.Trim
                    Clterapia.televisionObs = televisionObs.Text.Trim
                    Clterapia.coleccionarObs = coleccionarObs.Text.Trim
                    Clterapia.mascotasObs = mascotasObs.Text.Trim
                    Clterapia.conciertosObs = conciertosObs.Text.Trim
                    Clterapia.voluntariadoObs = voluntariadoObs.Text.Trim
                    Clterapia.futbolObs = futbolObs.Text.Trim
                    Clterapia.paseosObs = paseosObs.Text.Trim
                    Clterapia.musicaObs = musicaObs.Text.Trim
                    Clterapia.fiestasObs = fiestasObs.Text.Trim
                    Clterapia.bailarObs = bailarObs.Text.Trim
                    Clterapia.cineObs = cineObs.Text.Trim
                    Clterapia.manualidadesObs = manualidadesObs.Text.Trim
                    Clterapia.pinturaObs = pinturaObs.Text.Trim
                    Clterapia.baloncestoObs = baloncestoObs.Text.Trim
                    Clterapia.rompecabezasObs = rompecabezasObs.Text.Trim
                    Clterapia.caminataObs = caminataObs.Text.Trim
                    Clterapia.leerObs = leerObs.Text.Trim
                    Clterapia.historiaObs = historiaObs.Text.Trim
                    Clterapia.natacionObs = natacionObs.Text.Trim
                    Clterapia.gimnasiaObs = gimnasiaObs.Text.Trim
                    Clterapia.observacionesCuatro = observacionesCuatro.Text.Trim
                End If
                If txtPestana.Value.Trim >= 3 Then
                    Clterapia.domino = domino.SelectedValue.Trim
                    Clterapia.dominoPref = dominoPref.SelectedValue.Trim
                    Clterapia.ajedrez = ajedrez.SelectedValue.Trim
                    Clterapia.ajedrezPref = ajedrezPref.SelectedValue.Trim
                    Clterapia.cartas = cartas.SelectedValue.Trim
                    Clterapia.cartasPref = cartasPref.SelectedValue.Trim
                    Clterapia.damas = damas.SelectedValue.Trim
                    Clterapia.damasPref = damasPref.SelectedValue.Trim
                    Clterapia.guitarra = guitarra.SelectedValue.Trim
                    Clterapia.guitarraPref = guitarraPref.SelectedValue.Trim
                    Clterapia.danza = danza.SelectedValue.Trim
                    Clterapia.danzaPref = danzaPref.SelectedValue.Trim
                    Clterapia.poesia = poesia.SelectedValue.Trim
                    Clterapia.poesiaPref = poesiaPref.SelectedValue.Trim
                    Clterapia.capachos = capachos.SelectedValue.Trim
                    Clterapia.capachosPref = capachosPref.SelectedValue.Trim
                    Clterapia.arpa = arpa.SelectedValue.Trim
                    Clterapia.arpaPref = arpaPref.SelectedValue.Trim
                    Clterapia.flauta = flauta.SelectedValue.Trim
                    Clterapia.flautaPref = flautaPref.SelectedValue.Trim
                    Clterapia.cantar = cantar.SelectedValue.Trim
                    Clterapia.cantarPref = cantarPref.SelectedValue.Trim
                    Clterapia.teatro = teatro.SelectedValue.Trim
                    Clterapia.teatroPref = teatroPRef.SelectedValue.Trim
                    Clterapia.rana = rana.SelectedValue.Trim
                    Clterapia.ranaPref = ranaPref.SelectedValue.Trim
                    Clterapia.teja = teja.SelectedValue.Trim
                    Clterapia.tejaPref = tejaPref.SelectedValue.Trim
                    Clterapia.coser = coser.SelectedValue.Trim
                    Clterapia.coserPref = coserPref.SelectedValue.Trim
                    Clterapia.bordar = bordar.SelectedValue.Trim
                    Clterapia.bordarPref = bordarPref.SelectedValue.Trim
                    Clterapia.ganchillo = ganchillo.SelectedValue.Trim
                    Clterapia.ganchilloPref = ganchilloPref.SelectedValue.Trim
                    Clterapia.jardineria = jardineria.SelectedValue.Trim
                    Clterapia.jardineriaPref = jardineriaPref.SelectedValue.Trim
                    Clterapia.mecaAutos = mecaAutos.SelectedValue.Trim
                    Clterapia.mecaAutosPref = mecaAutosPref.SelectedValue.Trim
                    Clterapia.mecaMotos = mecaMotos.SelectedValue.Trim
                    Clterapia.mecaMotosPref = mecaMotosPref.SelectedValue.Trim
                    Clterapia.marqueteria = marqueteria.SelectedValue.Trim
                    Clterapia.marqueteriaPref = marqueteriaPref.SelectedValue.Trim
                    Clterapia.bisuteria = bisuteria.SelectedValue.Trim
                    Clterapia.bisuteriaPref = bisuteriaPref.SelectedValue.Trim
                    Clterapia.cocina = cocina.SelectedValue.Trim
                    Clterapia.cocinaPref = cocinaPref.SelectedValue.Trim
                    Clterapia.cuero = cuero.SelectedValue.Trim
                    Clterapia.cueroPref = cueroPref.SelectedValue.Trim
                    Clterapia.decoracion = decoracion.SelectedValue.Trim
                    Clterapia.decoracionPref = decoracionPref.SelectedValue.Trim
                    Clterapia.peluqueria = peluqueria.SelectedValue.Trim
                    Clterapia.peluqueriaPref = peluqueriaPref.SelectedValue.Trim
                    Clterapia.ceramica = ceramica.SelectedValue.Trim
                    Clterapia.ceramicaPref = ceramicaPref.SelectedValue.Trim
                    Clterapia.mosaico = mosaico.SelectedValue.Trim
                    Clterapia.mosaicoPref = mosaicoPref.SelectedValue.Trim
                    Clterapia.repElectro = repElectro.SelectedValue.Trim
                    Clterapia.repElectroPref = repElectroPref.SelectedValue.Trim
                    Clterapia.bolsas = bolsas.SelectedValue.Trim
                    Clterapia.bolsasPref = bolsasPref.SelectedValue.Trim
                    Clterapia.traperos = traperos.SelectedValue.Trim
                    Clterapia.traperosPref = traperosPref.SelectedValue.Trim
                    Clterapia.escobas = escobas.SelectedValue.Trim
                    Clterapia.escobasPref = escobasPref.SelectedValue.Trim
                    Clterapia.panaderia = panaderia.SelectedValue.Trim
                    Clterapia.panaderiaPref = panaderiaPref.SelectedValue.Trim
                    Clterapia.dominoObs = dominoObs.Text.Trim
                    Clterapia.ajedrezObs = ajedrezObs.Text.Trim
                    Clterapia.cartasObs = cartasObs.Text.Trim
                    Clterapia.damasObs = damasObs.Text.Trim
                    Clterapia.guitarraObs = guitarraObs.Text.Trim
                    Clterapia.danzaObs = danzaObs.Text.Trim
                    Clterapia.poesiaObs = poesiaObs.Text.Trim
                    Clterapia.capachosObs = capachosObs.Text.Trim
                    Clterapia.arpaObs = arpaObs.Text.Trim
                    Clterapia.flautaObs = flautaObs.Text.Trim
                    Clterapia.cantarObs = cantarObs.Text.Trim
                    Clterapia.teatroObs = teatroObs.Text.Trim
                    Clterapia.ranaObs = ranaObs.Text.Trim
                    Clterapia.tejaObs = tejaObs.Text.Trim
                    Clterapia.coserObs = coserObs.Text.Trim
                    Clterapia.bordarObs = bordarObs.Text.Trim
                    Clterapia.ganchilloObs = ganchilloObs.Text.Trim
                    Clterapia.jardineriaObs = jardineriaObs.Text.Trim
                    Clterapia.mecaAutosObs = mecaAutosObs.Text.Trim
                    Clterapia.mecaMotosObs = mecaMotosObs.Text.Trim
                    Clterapia.marqueteriaObs = marqueteriaObs.Text.Trim
                    Clterapia.bisuteriaObs = bisuteriaObs.Text.Trim
                    Clterapia.cocinaObs = cocinaObs.Text.Trim
                    Clterapia.cueroObs = cueroObs.Text.Trim
                    Clterapia.decoracionObs = decoracionObs.Text.Trim
                    Clterapia.peluqueriaObs = peluqueriaObs.Text.Trim
                    Clterapia.ceramicaObs = ceramicaObs.Text.Trim
                    Clterapia.mosaicoObs = mosaicoObs.Text.Trim
                    Clterapia.repElectroObs = repElectroObs.Text.Trim
                    Clterapia.bolsasObs = bolsasObs.Text.Trim
                    Clterapia.traperosObs = traperosObs.Text.Trim
                    Clterapia.escobasObs = escobasObs.Text.Trim
                    Clterapia.panaderiaObs = panaderiaObs.Text.Trim
                    Clterapia.observacionesCinco = observacionesCinco.Text.Trim
                    Clterapia.concepto_ocupacional = concepto_ocupacional.Text.Trim
                End If
                Clterapia.fechaCreo = DateTime.Now()
                modelo.terapiaOcupacionals.InsertOnSubmit(Clterapia)
                modelo.SubmitChanges()
                terapiaId.Value = Clterapia.terapiaId.ToString
                If txtContinua.Value.Trim = "Si" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');")
                Else
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');window.location = 'encOcupacional.aspx'")
                End If
            End If
        End If
    End Sub
    Protected Sub btnBusRapida_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBusRapida.Click
        SqlDataSource1.FilterExpression = geriatriaClases.fnbusquedaRapida(txtBusquedaRapida.Text.ToString())
        SqlDataSource1.DataBind()
    End Sub
End Class